1 Public Class frmLogin
2
3     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
4         MsgBox(
"Thank you For Using This Software Develop By S.A Computers", MsgBoxStyle.Information)
5         Application.Exit()
6     End Sub
7
8     Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
9         txtPath.Text = My.Settings.user
10         If txtPath.Text =
"" Then
11             frmSetPass.ShowDialog()
12         End If
13     End Sub
14
15     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
16         If txtPass.Text = My.Settings.pass And txtUser.Text = My.Settings.user Then
17             Me.Hide()
18             frmMain.Show()
19         Else
20             MsgBox(
"User Name or Passwor is incorrect")
21         End If
22     End Sub
23 End Class


Gõ tìm kiếm nhanh...